home *** CD-ROM | disk | FTP | other *** search
/ Dimension 64 14 / Dimension_64_Nr.14_19xx_-_de_Side_B.d64 / sam c (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  54 lines
  1. 10 rem    musik abspielen
  2. 11 s=54272:fori=stos+24:pokei,0:next
  3. 20 pokes+24,15:pokes+5,25:pokes+6,31:pokes+13,240
  4. 30 dimsa(23),sb(23),i1(23)
  5. 40 forx=0to23:readsa(x),sb(x):next
  6. 50 forx=0to23:i1(x)=2:next
  7. 55 forx=0to2:readsc(x),sd(x),i2(x):next
  8. 60 z1=0:z2=0:n1=0:n2=0:ln=2
  9. 65 gosub500
  10. 70 pokes,sa(n1):pokes+1,sb(n1)
  11. 80 pokes+7,sc(0):pokes+8,sd(0)
  12. 95 pokes+4,33:pokes+11,33
  13. 100 z1=z1+1:ifz1<>ln*i1(n1)then200
  14. 110 n1=n1+1:z1=0
  15. 120 ifn1=8andf1=0thenn1=0:f1=1
  16. 130 ifn1=16andf2=0thenn1=8:f2=1
  17. 140 ifn1=24andf3=0thenn1=16:f3=1
  18. 150 ifn1=24andf3=1thenn1=0
  19. 155 ifn1=8andf3=1then240
  20. 160 pokes+4,32:pokes,sa(n1):pokes+1,sb(n1):pokes+4,33
  21. 200 z2=z2+1:ifz2<>ln*i2(n2)then230
  22. 210 z2=0:n2=n2+1:ifn2=3thenn2=0
  23. 220 pokes+11,32:pokes+7,sc(n2):pokes+8,sd(n2):pokes+11,33
  24. 230 goto100
  25. 240 fori=15to0step-.04:pokes+24,i:next:pokes+24,15
  26. 250 pokes+4,0:pokes+11,0:goto650
  27. 497 :
  28. 498 :
  29. 499 rem        titelbild
  30. 500 poke53280,0:poke53281,0:print"[147]"
  31. 505 print"[158]    [169] [169] [223]        [223]   [169] [223]  [223]  [223]"
  32. 510 print"[154]   [146][169]              "
  33. 520 print"              [182]          "
  34. 530 print"   [223]              "
  35. 540 print"    [146][223]         [146][169]         [146][169]"
  36. 550 print"[169]                                      "
  37. 560 print" [146][169]              [169]  [223][146]          [223][146]   [169] [146]"
  38. 570 print"[154] [223][146]             [169] [146][169][223] [223][146]          [223][146] [169]  [146]"
  39. 580 print"[223]     [223][146]         [146][169]  [223] [146]         [146][223]   [146][169] [146]"
  40. 590 print"[158]       [146]              [146]         [146] [223] [146][169]  [146]"
  41. 600 print"[223][146]    [169] [146]         [146]     [146]         [146]      [146]"
  42. 610 print"      [146][169]         [146]     [146]         [146]      [146]"
  43. 620 print"     ****      m  &  m      ****"
  44. 630 printspc(11)"[154]s o f t w a r e"
  45. 640 return
  46. 650 print"[147][144]load"chr$(34)"sam d"chr$(34)",8"
  47. 660 poke631,19:poke632,13:poke633,82:poke634,213:poke635,13:poke198,5:end
  48. 670 :
  49. 680 rem        musik daten
  50. 690 data143,12,48,11,143,12,143,10,143,12,104,9,143,12,97,8
  51. 700 data24,14,143,12,24,14,48,11,24,14,143,10,24,14,104,9
  52. 710 data195,16,210,15,195,16,24,14,195,16,143,12,195,16,48,11
  53. 720 data97,8,32,24,14,32,195,16,32,97,8,42
  54.